home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / icon / packages.lha / packages / atari / ats.arc / TESTS.ARC / PERMUTE.ICN < prev    next >
Text File  |  1990-03-28  |  327b  |  18 lines
  1. procedure main()
  2.    output := set()
  3.    every 1 to 2 do
  4.       every insert(output,permute("ogram"))
  5.    every write(!output)
  6. end
  7.  
  8. procedure permute(s)
  9.    local i, x, t
  10.    if s == "" then return ""
  11.    every i := 1 to *s do {
  12.       x := s[i]
  13.       t := s
  14.       t[i] := ""
  15.       suspend x || permute(t)
  16.       }
  17. end
  18.